home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP682.ARC / L-жал (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  106 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO190
  2. 10 REM (C)OPYRIGHT 1994 JASON MAC INNES        FOR USE WITH SPENCE XP V6 SERIES
  3. 15 REM *INSTRUCTIONS AT END LIST1000-*
  4. 20 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  5. 30 GOSUB40:OPEN1,8,15,"I0:":OPEN3,8,3,"0:[211]YSTEM [213]SERS":RETURN
  6. 40 CLOSE3:CLOSE2:CLOSE1:RETURN
  7. 50 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  8. 60 SYS49239:RETURN
  9. 70 U$="":GOSUB80:A$=X$+"":SYS49227,A$:GOSUB80:A$=LEFT$(A$,PEEK(2025)-1):RETURN
  10. 80 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,CK,CK$,CK,CK:RETURN
  11. 90 PU$="":JN=.:X=1:POKE730,.:FORY=1TOUS
  12. 100 A=ASC(LEFT$(U$(Y),1))-V:IFJNANDA>JNTHENPU$=PU$+CHR$(Y-1):X=X+1:JN=.
  13. 110 IFA=XANDJN=.THENJN=A:PU$=PU$+CHR$(Y)
  14. 120 IFA>XANDJN=.THENPU$=PU$+Y$+Y$:X=X+1:GOTO110
  15. 130 NEXT:IFJNTHENPU$=PU$+CHR$(US):X=X+1:JN=.
  16. 140 IFX<26THENFORX=1TO52-LEN(PU$):PU$=PU$+Y$:NEXT
  17. 150 GOSUB40:OPEN1,8,15,"S0:INDEX":OPEN3,8,3,"0:INDEX,S,W":PRINT#3,PU$:GOTO40
  18. 160 W=1:J1$=RIGHT$(K$,2)+MID$(K$,3,2)+LEFT$(K$,2)
  19. 170 IF(J1$<DA$ANDDA=1)OR(J1$>DA$ANDDA=2)THENW=.
  20. 180 RETURN
  21. 190 IFPEEK(1064)=32THEN190
  22. 200 B=255:C=256:V=192
  23. 210 R$=CHR$(13):C$=CHR$(160):POKE1023,.
  24. 250 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:Q$=CHR$(34)
  25. 260 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  26. 270 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN300
  27. 280 DIMDR$(4,DR):FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X:FORX=.TODR
  28. 290 DR$(2,X)=DR$(2,X)+":":NEXT
  29. 300 INPUT#9,MG$:MG=VAL(MG$):DIMMG$(3,MG):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
  30. 310 FORX=.TOMG:MG$(1,X)=MG$(1,X)+":":NEXT
  31. 320 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT:MD=VAL(MG$(2,.))
  32. 330 P$=MG$(1,.):INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$
  33. 340 UM=VAL(UM$):LD=VAL(A$):INPUT#9,SU$,NB$,A$,CG$,PD$,P1$,P2$:P1=VAL(P1$)
  34. 350 LD$=LD$+":":PG=VAL(PG$):DIMTB$(VAL(NB$)+7),P1$(P1)
  35. 355 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  36. 360 INPUT#9,TB$(X):X=X+1:IFST=.THEN360
  37. 370 CLOSE9:OPEN9,8,9,"0:STATS":FORX=.TOMG:INPUT#9,SY$(X),R4$(X),AL$(X),RF$(X):NEXT
  38. 380 INPUT#9,US$,OL$,YV$,FB$,BF$:MB=VAL(MG$(3,.)):YV=VAL(YV$):IFDR=-1THEN400
  39. 390 FORX=.TODR:INPUT#9,DR$(4,X):NEXT
  40. 400 CLOSE9:U=8:R=VAL(RF$(0))
  41. 410 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
  42. 420 P$=P$+":":BD$=BD$+":":DIMU$(UM)
  43. 425 IF(PEEK(56577)AND16)=PEEK(719)THEN615
  44. 430 PRINT"[193]UTOMATIC [214]ALIDATION V2.3 FOR V6.4+
  45. 440 [153]R$"PEEKY MID$ASON (null)AC RIGHT$NNES - (null)ORKING..."R$
  46. 450 [151]650,128:T[178]5184000:A$[178]"                                        "
  47. 460 [129]X[178]1[164]6:X$[178]X$[170]A$:[130]:X$[178]X$[170]"               ":[129]X[178]1[164]16:SS$[178]SS$[170]C$:[130]
  48. 470 US[178][197](US$):OL[178][197](OL$)
  49. 510 DY$[178][202]([196]([194](999)),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  50. 520 Z$[178][202]([196]([194](1000)),2):[139][195](Z$)[178]1[167]Z$[178]"0"[170]Z$
  51. 530 Y2[178][194](1001):Y3[178][194](1002):YR[178]Y3[172]C[170]Y2:YR$[178][202]([196](YR),2)
  52. 540 D$[178]DY$[170]Z$[170][201](YR$,2):[137]640
  53. 550 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0:":[160]1
  54. 560 [159]14,8,14,"0:STATS,S,W
  55. 570 FORX=.TOMG:PRINT#14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):NEXT
  56. 580 PRINT#14,STR$(US);R$;Q$+OL$;R$;STR$(YV);R$;FB$;R$;BF$:IFDR=-1THEN600
  57. 590 FORX=.TODR:PRINT#14,DR$(4,X):NEXT
  58. 600 CLOSE14:RETURN
  59. 610 FORX=.TO999:NEXT
  60. 620 PRINT"[147]NEW"R$"LOAD"Q$;LD$;"BBS6*";Q$",";LD;":"R$"RUN
  61. 630 [160]4:[151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"":[128]
  62. 640 U9[178]US:O1$[178]"":[151]687,80:OM[178]255:[143] OM IS CATEGORY OVERRIDE MASK!
  63. 650 [141]30
  64. 660 [129]X[178]1[164]US:H[178][181](X[173]C):G[178]X[171]H[172]C:[141]70:U$(X)[178]A$:[158]49239:[130]
  65. 670 [160]3
  66. 680 [141]40:[159]1,8,15:[159]2,8,2,"0:VALS":[151]693,.:[151]685,.
  67. 690 [139]US[178][177]UM[176]US[178]B[167][153]"*(null)SER PEEKASE ASCULL*":[141]40:[137]960
  68. 700 [141]50:[139][194](693)[177].[176]S[179][177].[167][141]40:[137]960
  69. 710 [139][195](A$)[179]3[167]700
  70. 720 I$[178]A$[170]"":[141]20:N$[178]I$[170]""
  71. 730 [129]X[178]1[164]US
  72. 740 [139][200](U$(X),[195](N$))[178]N$[175][195](N$)[170]58[178][195](U$(X))[167]PO[178]1:[137]770
  73. 750 [139]N$[179]U$(X)[167]770
  74. 760 [158]49239:[130]
  75. 770 [139]LF[177].[167][141]50:BO$[178]A$[170]""
  76. 780 [141]50:BP$[178]A$[170]"":[141]50:I$[178]A$[170]"":[141]50:PH$[178]A$[170]""
  77. 790 [141]50:JM$[178]A$[170]"":[141]50:J0$[178]A$[170]"":[141]50:XD$[178]A$[170]"":[141]50:CM$[178]A$[170]""
  78. 810 [141]50:[139][195](A$)[177]1[167]CM$[178]CM$[170]" "[170]A$:[137]810
  79. 820 [139]PO[167]PO[178].:[137]690
  80. 830 [141]20:P6$[178]I$[170][200]("    ",6[171][195](I$))
  81. 840 C5[178][181](R[173]4096):C1[178][181]((R[171]C5[172]4096)[173]64):C2[178]R[171]C1[172]64[171]C5[172]4096
  82. 850 JM[178][197](JM$):FW[178][197](J0$):XD[178][197](XD$)
  83. 860 X2$[178]N$[170]P6$[170]D$[170][199](C1[170]V)[170][199](C2[170]V)[170][199](128)[170][199](V)[170][199](C5[170]V)
  84. 870 X2$[178]X2$[170][199](B)[170][199](JM)[170][199](32[172]XD)[170][199](FW)[170][199](OM)[170][199](B)[170][199](B)[170][199](B)
  85. 880 X2$[178]X2$[170][199](B)[170]"<"[170]Y$[170]Y$[170]Y$:[129]X[178]1[164]28:X2$[178]X2$[170][199](V):[130]
  86. 900 BB[178].:[129]X[178]1[164]US:[139]X2$[179]U$(X)[167]BB[178]X:X[178]US
  87. 910 [130]:[139]BB[167]X[178]BB:BB[178].:[137]930
  88. 920 US[178]US[170]1:U$(US)[178]X2$:[137]950
  89. 930 [129]Y[178]US[164]X[169][171]1:[158]49239:U$(Y[170]1)[178]U$(Y):[158]49239:[130]
  90. 940 U$(X)[178]X2$:US[178]US[170]1
  91. 950 [137]690
  92. 960 [139]US[178]U9[167][153]"(null)O ADDITIONS":[137]610
  93. 970 [153]"(null)RITING";[196](US);" USERS TO DISK..
  94. 980 GOSUB30
  95. 990 FORX=1TOUS:H=INT(X/C):G=X-H*C:GOSUB80:PRINT#3,U$(X):GOSUB80:NEXT
  96. 995 CLOSE3:GOSUB90:GOSUB550:GOTO610
  97. 1000 REM
  98. 1003 REM * TO USE THIS LINK PLACE IT ON YOUR LOAD LINK DISK. TITLE IT
  99. 1005 REM "L-[214][193][204]". THEN USE A SEQ EDITOR TO CHANGE THE *ACTION* FILE ON YOUR
  100. 1010 REM DV8 DISK. IGNORING THE FIRST SLOT, EACH SLOT THERE AFTER MARKS
  101. 1015 REM 1 HOUR. EX: SLOT 2 IS MIDNIGHT, SLOT 3 IS 1 AM, SLOT 4 IS 2 AM, ETC
  102. 1020 REM EX SLOT 6 WOULD HAVE "[214][193][204]" TYPED IN IN UPPERCASE IF YOU WANTED
  103. 1025 REM AUTOVALIDATIONS TO OCCUR AT 4 AM * - JM
  104. 1027 REM
  105. 1030 REM *** NOTE: THIS VERSION WILL ONLY WORK WITH THE V6.4+ SERIES ***
  106.